home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (10th Edition) / The CD-ROM Directory 10th Edition.ISO / install / inscript.spa < prev    next >
Encoding:
Text File  |  1993-06-28  |  16.1 KB  |  687 lines
  1. ; CD Answer Installation Script - Generic                               jdk
  2. ; <<CDA>> Aug 18 1992;3.1
  3.  
  4. ; single/multiple disk version
  5. ;
  6. ;   To customize this install script:
  7. ;      1. Put the product name (1-8 characters) in a file called
  8. ;         'PRODNAME'. There should be no carriage return/line feed at
  9. ;         the end of the name- the file should contain just the characters
  10. ;         of the name.
  11. ;      2. Put the application name (CD Author 4 character project identifier)
  12. ;         in a file called 'APPLNAME'. Again, no other chars should be
  13. ;         the file. Multiple applications are formed by adding a space,
  14. ;         then another application identifier
  15. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  16. ;         There should not be more than 10 lines.
  17. ;
  18. ;    The first disk must contain the \INSTALL directory.
  19. ;    This contains the general system files for the install
  20. ;    process and may be repeated on disk #2, etc.
  21. ;    The application specific files are kept in a directory
  22. ;    named 'DISK1'. If additional disks are required, create
  23. ;    an (empty) file on the current disk named '\MORE' and
  24. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  25.  
  26. BREAK abort
  27.  
  28. ; install disk
  29. PARSE_PATH <$ProgDir>
  30. SET insdrive = <$Drive>
  31. SET ins = <insdrive>\INSTALL
  32. SET curdisk = 1
  33. GOSUB need_disk
  34.  
  35. ; here are some defaults:
  36.  
  37. ;TFPL 8-6-93
  38. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  39. ;CONFIG ColorSet = 55
  40. ;TFPL
  41. ;  default destination drive
  42. PARSE_PATH <$CurDir>
  43. SET def_dest = C:\
  44. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  45.  
  46. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  47. SET def_cdtype = High Sierra
  48. SET def_driver = FS_HSGEN
  49. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  50. SET def_cdtype = ISO
  51. SET def_driver = FS_ISGEN
  52. :ok_driver
  53.  
  54. ;  language
  55. SET def_lang = <$Language>
  56.  
  57. ; application name(s) (4 char ident(s) on CD-ROM)
  58. READFILE names = <ins>\APPLNAME.
  59.  
  60. ; product name (application name for batch file, subdirectory name)
  61. READFILE prod = <ins>\PRODNAME.
  62.  
  63. ; default dest drive and directory
  64. PARSE_PATH <def_dest><prod>.CD
  65. SET dstdrive = <$Drive>
  66. SET path = <$Dir>
  67. CD <dstdrive>\
  68.  
  69. ; read and display Application Installation Screen
  70. IF NOT EXISTS <insdrive>\DISK1\PRODSCRN.<def_lang> GOTO no_banner
  71. READFILE screen = <insdrive>\DISK1\PRODSCRN.<def_lang>
  72. GOTO show_banner
  73. :no_banner
  74. SET screen =
  75. ----        Instalación de CD Answer para:\n\n
  76. ----               <prod>\n\n
  77. ----        Aplicación(es): <names>
  78. :show_banner
  79. CLEAR
  80. TEXT <screen>
  81. SET screen =
  82. WAIT
  83.  
  84. GOTO okdir
  85. :getdir
  86. CLEAR
  87. TEXT \nError -\n\n
  88. ----  El path "<dstdrive><path>" no es legal!\n
  89. ----Para instalar el programma, debe existir tanto una disquetera como un
  90. ---- subdirectorio válido.
  91. WAIT
  92. :okdir
  93. CLEAR
  94. TEXT La software de recuperación de datos debe ser instalada en su disco
  95. ---- duro o en un disco flexible formateado.  Los valores standard son\n
  96. ----disquetera <dstdrive> (normalmente el disco duro), y un subdirectorio\n
  97. ----llamado <path>.  Para usar estos valores, presione dos veces la\n
  98. ----tecla ┘ (Intro).  Para cambiarlos, escriba el nombre de la disquetera\n
  99. ----o del subdirectorio después del aviso correspondiente.  Entonces\n
  100. ----presione ┘ (Intro).
  101. INPUT 6,8,5 dstdrive = Instalar en la disquetera ?
  102. INPUT 6,10,40 path   = Instalar en el directorio ?
  103. SET dest = <dstdrive><path>
  104. SET confile = <ins>\_DW_.CFG
  105.  
  106. IF "<dstdrive>"=="" GOTO getdir
  107. IF "<path>"=="\" GOTO getdir
  108. IF "<path>"=="" GOTO getdir
  109. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  110.  
  111. CD <dstdrive>\
  112.  
  113. IF NOT DIREXISTS <dest> GOTO nopath
  114. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  115. CLEAR
  116. TEXT El directorio "<dest>" ya existe.
  117. NEWMENU 1, 0, 68
  118. ;TFPL -8-6-93
  119. MENU Instalar el software y sólo el interfaz español
  120. MENU Instalar el software y los interfaces de todos los idiomas
  121. ;TFPL
  122. MENU Borrar la versión antigua; no instalar la software nueva
  123. MENU Cambiar la configuración; no copiar software
  124. MENU Interrumpir la instalación sin hacer ningún cambio
  125. ENDCHOICES
  126.  
  127. ;TFPL -8-6-93
  128. CHOICE 1
  129. CLEAR
  130. TEXT Effacement du contenu antérieur de <dest>...
  131. FOREACH name = <names>
  132.  DEL <dest>\<name>*.*
  133. NEXT
  134. DEL <dest>\FS_*.DRV
  135. DEL <dest>\SC_*.DRV
  136. DEL <dest>\PR_*.DRV
  137. DEL <dest>\GR_*.DRV
  138. DEL <dest>\_DW_*.*
  139. DEL <dest>\ADL_MSGS.*
  140. DEL <dest>\DW.EXE
  141. DEL <dest>\UPDATE.EXE
  142. SET ch = 2
  143. GOTO okpath
  144.  
  145. ;TFPL
  146.  
  147. CHOICE 2
  148. CLEAR
  149. TEXT Borrando el contenido anterior de <dest>...
  150. FOREACH name = <names>
  151.  DEL <dest>\<name>*.*
  152. NEXT
  153. DEL <dest>\FS_*.DRV
  154. DEL <dest>\SC_*.DRV
  155. DEL <dest>\PR_*.DRV
  156. DEL <dest>\GR_*.DRV
  157. DEL <dest>\_DW_*.*
  158. DEL <dest>\DW.EXE
  159. DEL <dest>\ADL_MSGS.*
  160. DEL <dest>\UPDATE.EXE
  161. SET ch = 3
  162. GOTO okpath
  163.  
  164. CHOICE 3
  165. CLEAR
  166. TEXT Cancelando <dest> directorio...
  167. FOREACH name = <names>
  168.  DEL <dest>\<name>*.*
  169. NEXT
  170. DEL <dest>\FS_*.DRV
  171. DEL <dest>\SC_*.DRV
  172. DEL <dest>\PR_*.DRV
  173. DEL <dest>\GR_*.DRV
  174. DEL <dest>\_DW_*.*
  175. DEL <dest>\ADL_MSGS.*
  176. DEL <dest>\DW.EXE
  177. DEL <dest>\UPDATE.EXE
  178. IF NOT EXISTS <dest>\*.* GOTO remdest
  179. TEXT <dest> directorio contiene archivos desconocidos; directorio no ha sido cancelado!!
  180. WAIT
  181. GOTO norem
  182. :remdest
  183. RD <dest>
  184. :norem
  185. DEL <dstdrive>\<prod>.BAT
  186. GOTO end2
  187.  
  188. CHOICE 4
  189. SET alter = Y
  190. SET confile = <dest>\_DW_.CFG
  191. GOTO okpath
  192.  
  193. CHOICE 5
  194. GOTO end2
  195. ENDCHOICES
  196.  
  197. :nopath
  198. MD <dest>
  199. IF NOT DIREXISTS <dest> GOTO getdir
  200.  
  201. ;TFPL -8-6-93
  202. TEXT New Installation
  203. NEWMENU 1, 3, 64
  204. MENU Instalar el software y sólo el interfaz español
  205. MENU Instalar el software y los interfaces de todos los idiomas
  206. ENDCHOICES
  207.  
  208. CHOICE1
  209. SET ch = 2
  210. GOTO okpath
  211.  
  212. CHOICE2
  213. SET ch = 3
  214. GOTO okpath
  215. ENDCHOICES
  216.  
  217. :okpath
  218.  
  219. ;----------------------------------------------------------------------------
  220.  
  221. IF NOT EXISTS <confile> GOTO no_config
  222. DISP 5,14 Leyendo la configuración...
  223. READCONFIG <confile>
  224. :no_config
  225.  
  226. ;----------------------------------------------------------------------------
  227.  
  228. HSCOUNT hs
  229. IF NOT <hs>==0 GOTO have_hs
  230.  
  231. CLEAR
  232. TEXT  Problema - No hay ningúna disquetera CD-ROM instalada.\n\n
  233. ----Se ruega usar el disco de instalación proporcionado por el fabricante de
  234. ---- su disquetera CD-ROM para instalar la software del device driver.  Luego
  235. ---- repita este programa de instalación.\n\n
  236. ----Note: El programa de instalación de la disquetera CD-ROM copiará algunos
  237. ---- archivos a su disco de sistema y modificará los archivos CONFIG.SYS y
  238. ---- AUTOEXEC.BAT\n
  239. ----Si Ud. no tiene otros programas que usan el programa MSCDEX, se recomienda
  240. ---- eliminar la línea que llama a este programa de su archivo AUTOEXEC.BAT
  241. ---- porque esta software no lo requiere.\n\n
  242. ----Después de instalar los drivers CD-ROM se deberá reinicializar el sistema.
  243.  
  244. WAIT
  245. ABORT
  246.  
  247. :have_hs
  248.  
  249. SET msg =
  250. IF <hs>==1 GOTO instOne
  251.  
  252. TEXT Una selección de <def_cdtype> drivers CD-ROM drivers están disponibles:\n\n
  253. ----Seleccione el device driver CD-ROM <def_cdtype> de esta lista de device
  254. ---- drivers disponibles usando las teclas  y .  Luego\n
  255. ----presione ┘ (Intro).  Presione Esc para interrumpir la installación.
  256. GOTO instMore
  257.  
  258. :instOne
  259. SET msg = Un driver CD-ROM <def_cdtype> ha sido instalado (vea CONFIG.SYS):\n\n
  260.  
  261. :instMore
  262. HSDRIVER hsname = 25, 8
  263. CONFIG Driver = "<def_driver>=<hsname>"
  264. CLEAR
  265. TEXT <msg>El driver CD-ROM <def_cdtype> seleccionado tiene el nombre "<hsname>".
  266. ----  Si esto no es correcto, presione Esc para interrumpir la instalación y
  267. ---- revise su archivo CONFIG.SYS\n\n
  268. ----Esta software NO requiere el programa MSCDEX.EXE (Microsoft CD-ROM
  269. ---- Extensions).  Si ningún otro programa lo requiere entonces Ud. puede
  270. ---- eliminar este programa de su archivo \AUTOEXEC.BAT (donde puede haber
  271. ---- sido instalado por el programa de instalación).
  272.  
  273. WAIT
  274.  
  275. CLEAR
  276. TEXT Copiando Interface CD-ROM <def_cdtype>...
  277. SET driver_name = <def_driver>.DRV
  278. GOSUB copy_driver
  279.  
  280. ;----------------------------------------------------------------------------
  281. :disp_display
  282. CLEAR
  283. TEXT Presenta Alternativas:\n\n
  284. ---- Use las teclas  y  para eligir un tipo de pantalla\n
  285. ---- y presione ┘ (Intro).
  286.  
  287. NEWMENU ? 6 46
  288. MENU Pantalla Standard - Sin capacidad gráfica
  289. MENU Adaptador VGA
  290. MENU Adaptador MCGA
  291. MENU Adaptador EGA
  292. MENU Adaptador CGA
  293. MENU Tarjeta Gráfica Hercules
  294. MENU Olivetti, AT&T o Compaq Plasma
  295. MENU Página entera
  296.  
  297. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 2
  298. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 3
  299. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 4
  300. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 5
  301. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 6
  302. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 8
  303. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 8
  304.  
  305. SET Port = N
  306. SET Graphic = N
  307.  
  308. CHOICE 1
  309.  SET scr_type = SC_STD
  310.  SET Port = ?
  311. CHOICE 2
  312.  SET scr_type = SC_VGA
  313.  SET Port = ?
  314. CHOICE 3
  315.  SET scr_type = SC_MCGA
  316.  SET Port = ?
  317. CHOICE 4
  318.  SET scr_type = SC_EGA
  319.  SET Port = ?
  320. CHOICE 5
  321.  SET scr_type = SC_CGA
  322.  SET Port = ?
  323. CHOICE 6
  324.  SET scr_type = SC_HERC
  325. CHOICE 7
  326.  SET scr_type = SC_ATT
  327.  SET Port = ?
  328. CHOICE 8
  329.  SET scr_type = FP
  330. ENDCHOICES
  331.  
  332. IF NOT "<scr_type>"=="FP" GOTO not_full_page
  333.  
  334. CLEAR
  335. TEXT Presenta Alternativas:\n\n
  336. ---- Use las teclas  y  para eligir un tipo de pantalla\n
  337. ---- y presione ┘ (Intro).
  338.  
  339. NEWMENU ? 6 46
  340. MENU Cornerstone FullPage
  341. MENU MDS Genius
  342.  
  343. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 1
  344. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 2
  345.  
  346. CHOICE 1
  347.  SET scr_type = SC_CNRST
  348. CHOICE 2
  349.  SET scr_type = SC_MDS
  350. ENDCHOICES
  351.  
  352. :not_full_page
  353.  
  354. SET extra =
  355. IF NOT "<Port>" == "?" GOTO no_scr_opts
  356.  
  357. CLEAR
  358. TEXT Presenta Alternativas Detalladas:\n\n
  359. ---- Use las teclas  y  para eligir la opción de pantalla\n
  360. ---- y presione ┘ (Intro).
  361.  
  362. NEWMENU ? 6 46
  363.  MENU Monitor Standard de Color o Monocromo
  364.  MENU Computadora Portable - con monitor Monocromo incluído
  365.  IF "<scr_type>"=="SC_CGA" DO MENU Pantallas de Color Antiguas - interferencia o "nieve"
  366.  
  367. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  368.  
  369. CHOICE 2
  370.   SET extra = P
  371. CHOICE 3
  372.   SET extra = F
  373. ENDCHOICES
  374.  
  375. :no_scr_opts
  376.  
  377. CONFIG Screen = "<scr_type>=<extra>"
  378.  
  379. CLEAR
  380. TEXT Copiando el Driver de la Pantalla...
  381. SET driver_name = <scr_type>.DRV
  382. GOSUB copy_driver
  383.  
  384. ;----------------------------------------------------------------------------
  385.  
  386. CLEAR
  387. TEXT Alternativas de Impresora:\n\n
  388. ---- Use las teclas  y  para eligir el tipo de impresora\n
  389. ---- y presione ┘ (Intro).
  390.  
  391. SET extra =
  392.  
  393. NEWMENU ? 6 46
  394. MENU Familia HP LaserJet
  395. MENU Familia HP DeskJet
  396. MENU Controlador de impresora JLaser
  397. MENU Otra impresora
  398.  
  399. CHOICE 1
  400.   SET prn_type = PR_PCL?
  401. CHOICE 2
  402.   SET prn_type = PR_DJ?
  403. CHOICE 3
  404.   SET prn_type = PR_JL?
  405. CHOICE 4
  406.   SET prn_type = PR_STD
  407. ENDCHOICES
  408.  
  409. IF "<prn_type>" == "PR_PCL?" GOTO pr_type_1
  410. IF "<prn_type>" == "PR_DJ?" GOTO pr_type_2
  411. IF "<prn_type>" == "PR_JL?" GOTO pr_type_3
  412. IF "<prn_type>" == "PR_STD" GOTO pr_type_4
  413.  
  414. :pr_type_1
  415.  
  416.   CLEAR
  417.  
  418.   GOSUB pr_detail
  419.  
  420.   NEWMENU ? 6 46
  421.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  422.   MENU HP LaserJet Series II, IID
  423.   MENU HP LaserJet IIP(+), III(+), IIID, IIIP, IIISi
  424.  
  425.   CHOICE 1
  426.     SET extra = R
  427.   CHOICE 2
  428.     SET extra = X
  429.   CHOICE 3
  430.     SET extra = XG
  431.   ENDCHOICES
  432.  
  433.   GOSUB pr_detail
  434.  
  435.   NEWMENU ? 6 46
  436.   MENU 300 Dpi (  1Mb memoria)
  437.   MENU 150 Dpi (512Kb memoria)
  438.   MENU 75  Dpi (256Kb memoria)
  439.  
  440.   CHOICE 1
  441.     SET prn_type = PR_PCL30
  442.   CHOICE 2
  443.     SET prn_type = PR_PCL15
  444.   CHOICE 3
  445.     SET prn_type = PR_PCL75
  446.   ENDCHOICES
  447.  
  448.   GOTO pr_type_ok
  449.  
  450. :pr_type_2
  451.  
  452.   GOSUB pr_detail
  453.  
  454.   NEWMENU ? 6 46
  455.   MENU HP DeskJet(+)
  456.   MENU HP DeskJet 500
  457.   MENU HP DeskJet 500C
  458.  
  459.   CHOICE 1
  460.     SET extra = X
  461.   CHOICE 2
  462.     SET extra = XG
  463.   CHOICE 3
  464.     SET extra = XG
  465.   ENDCHOICES
  466.  
  467.   GOSUB pr_detail
  468.  
  469.   NEWMENU ? 6 46
  470.   MENU 300 Dpi
  471.   MENU 150 Dpi
  472.   MENU 75  Dpi
  473.  
  474.   CHOICE 1
  475.     SET prn_type = PR_PCL30
  476.   CHOICE 2
  477.     SET prn_type = PR_PCL15
  478.   CHOICE 3
  479.     SET prn_type = PR_PCL75
  480.   ENDCHOICES
  481.  
  482.   GOTO pr_type_ok
  483.  
  484. :pr_type_3
  485.  
  486.   GOSUB pr_detail
  487.  
  488.   NEWMENU ? 6 46
  489.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  490.   MENU HP LaserJet (todos los demás modelos)
  491.   MENU Canon LBP (todos los modelos)
  492.  
  493.   CHOICE 1
  494.     SET prn_type = PR_JLHP
  495.     SET extra = R
  496.   CHOICE 2
  497.     SET prn_type = PR_JLHP
  498.     SET extra = X
  499.   CHOICE 3
  500.     SET prn_type = PR_JLCAN
  501.   ENDCHOICES
  502.  
  503.   GOTO pr_type_ok
  504.  
  505. :pr_type_4
  506.  
  507.   GOSUB pr_detail
  508.  
  509.   NEWMENU ? 6 46
  510.   MENU grupo de carácteres PC 8 (std)
  511.   MENU grupo de carácteres 7 bit nacional
  512.  
  513.   CHOICE 2
  514.     SET extra = 7
  515.   ENDCHOICES
  516.  
  517.   GOTO pr_type_ok
  518.  
  519. :pr_detail
  520. CLEAR
  521. TEXT Alternativas Detalladas de Impresora:\n\n
  522. ---- Use las teclas  y  para eligir la opción de impresora\n
  523. ---- y presione ┘ (Intro).
  524. RETURN
  525.  
  526. :pr_type_ok
  527.  
  528. SET port =
  529.  
  530. NEWMENU ? 6 40
  531. MENU LPT1       Parallel Printer # 1
  532. MENU COM1       Serial Printer   # 1
  533. MENU LPT2       Parallel Printer # 2
  534. MENU COM2       Serial Printer   # 2
  535. MENU LPT3       Parallel Printer # 3
  536. MENU LPT4       Parallel Printer # 4
  537. MENU PRN        Impresora actual DOS
  538.  
  539. CLEAR
  540. TEXT Alternativas de Conexión de Impresora:\n\n
  541. ---- Use las teclas  y  para eligir el port de impresora\n
  542. ---- y presione ┘ (Intro).
  543.  
  544. CHOICE 1
  545.  SET port = LPT1,
  546. CHOICE 2
  547.  SET port = COM1,
  548. CHOICE 3
  549.  SET port = LPT2,
  550. CHOICE 4
  551.  SET port = COM2,
  552. CHOICE 5
  553.  SET port = LPT3,
  554. CHOICE 6
  555.  SET port = LPT4,
  556. CHOICE 7
  557.  SET port = PRN,
  558. ENDCHOICES
  559.  
  560. CONFIG Printer = "<prn_type>=<port><extra>"
  561.  
  562. CLEAR
  563. TEXT Copiando el Driver de la Impresora...
  564. SET driver_name = <prn_type>.DRV
  565. GOSUB copy_driver
  566.  
  567. ;----------------------------------------------------------------------------
  568.  
  569. IF "<alter>"=="Y" GOTO done
  570.  
  571. :read_disk
  572. GOSUB need_disk
  573. ;TFPL 8-6-93
  574. IF "<ch>"=="2" GOTO inst_only_eng
  575. IF "<ch>"=="3" GOTO inst_all
  576.  
  577. :inst_only_eng
  578. CLEAR
  579.  
  580. TEXT Instalando los ficheros de la aplicación y el interfaz español...
  581. COPY_OPT <insdrive>\DISK<curdisk>\*.SPA <dest>
  582. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  583. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  584. COPY_OPT <insdrive>\DISK<curdisk>\*. <dest>
  585. COPY_OPT <ins>\_DW_MSGS.SPA <dest>
  586. COPY_OPT <ins>\ADL_MSGS.SPA <dest>
  587. GOTO adl_dw_message
  588.  
  589. :inst_all
  590. ;TFPL
  591.  
  592.  
  593. CLEAR
  594. TEXT Instalando archivos de Aplicación del Disco de Instalación <curdisk>...
  595. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  596.  
  597. ;TFPL 8-6-93
  598. COPY_OPT <ins>\_DW_MSGS.* <dest>
  599. COPY_OPT <ins>\ADL_MSGS.* <dest>
  600. GOTO adl_dw_message
  601.  
  602. :inst_only_soft
  603. CLEAR
  604.  
  605. TEXT Installing only software files...
  606. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  607. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  608. COPY_OPT <insdrive>\DISK<curdisk>\????.* <dest>
  609. COPY_OPT <ins>\_DW_MSGS.* <dest>
  610. COPY_OPT <ins>\ADL_MSGS.* <dest>
  611. ;TFPL
  612. :adl_dw_message
  613. ;Copy adl and dw message files
  614. IF NOT DIREXISTS <ins> GOTO skip_message_files
  615. COPY_OPT <ins>\UPDATE.EXE <dest>
  616. :skip_message_files
  617.  
  618. CALC curdisk = <curdisk> + 1
  619. IF EXISTS <insdrive>MORE GOTO read_disk
  620.  
  621. CONFIG Language = "<def_lang>"
  622. goto DONE
  623.  
  624. :abort
  625. if "<dest>"=="" GOTO nofiles
  626. if "<alter>"=="Y" GOTO nofiles
  627. CLEAR
  628. TEXT \n\n!!! Instalación Abortada !!!\n\n
  629. ----   Borrando todos los archivos copiados...
  630. UNCOPY
  631. :nofiles
  632. CLEAR
  633. TEXT \n\n!!! Instalación Abortada !!!\n\n
  634. goto END
  635.  
  636. :copy_driver
  637. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  638. CALC curdisk = <curdisk> + 1
  639. GOSUB need_disk
  640. GOTO copy_driver
  641. :ok_copy
  642. COPY <ins>\<driver_name> <dest>
  643. RETURN
  644.  
  645. :need_disk
  646. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  647. :retry_disk2
  648. CLEAR
  649. TEXT Introduzca el Disco de Instalación Número <curdisk> y presione ┘ (Intro).
  650. WAIT
  651. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  652.  
  653. CLEAR
  654. TEXT El disco introducido no es el Disco de Instalación Número <curdisk> !
  655. NEWMENU ?, 3, 15
  656. MENU Repetir
  657. MENU Interrumpir
  658.  
  659. CHOICE 1
  660. GOTO retry_disk2
  661. ENDCHOICES
  662.  
  663. ABORT
  664.  
  665. :done
  666. CLEAR
  667. TEXT Actualizando la Configuración
  668. WRITECONFIG <dest>\_DW_.CFG
  669. IF "<alter>"=="Y" GOTO end
  670. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  671.  
  672. CLEAR
  673. TEXT \n  Instalación completada!\n\n
  674. ----Un archivo batch fue creado en el directorio <dstdrive>\ con el nombre <prod>.\n\n
  675. ----Para iniciar el programa, escriba:\n\n
  676. ----  <prod> ┘\n\n
  677. ----Importante: Para que este commando funcione correctamente, se debe
  678. ---- iniciar en el directorio <dstdrive>\  o incluirlo en la variable PATH.
  679.  
  680.  
  681. :end
  682. WAIT
  683.  
  684. :end2
  685. CD <$CurDir>
  686.  
  687.